POV-Ray : Newsgroups : povray.binaries.images : Baseball, 24kbu : Re: Baseball, 24kbu Server Time
3 Oct 2024 04:58:35 EDT (-0400)
  Re: Baseball, 24kbu  
From: Sigmund Kyrre Aas
Date: 20 Feb 2000 11:50:48
Message: <38B01B76.9AB0BDE7@stud.ntnu.no>
Paul Vanukoff wrote:
> 
> Are you enclosing the ball sphere and the bump spheres in a single blob{}
> statement? If you have them in separate blob{} statements, they won't blob

Yes. Here it is: 

blob {
    threshold .8
    sphere {<0, 0, 0>, R*3.05, 1.004 }
    $a=0;
    $AntKuler=500;
    $d=1/AntKuler;
    #while (a<1)
        $Her=eval_3d_spline("Seam",a);
        $Der=eval_3d_spline("Seam",a+d);
        $Retn=vnormalize( Der-Her);
        $Tvers=vnormalize(vcross(Retn,Her) );
        $Norm=vnormalize(Her);
        sphere { 0, .25 ,1.2 scale <.33,1,1>  // bulk utover
            matrix <Norm.x,Norm.y,Norm.z,
                    Retn.x,Retn.y,Retn.z,
                    Tvers.x,Tvers.y,Tvers.z,
                    0   ,0   ,0    >
            translate Her*.99
        }

            matrix <Norm.x,Norm.y,Norm.z,
                    Retn.x,Retn.y,Retn.z,
                    Tvers.x*.2,Tvers.y*.2,Tvers.z*.2,
                    0   ,0   ,0    >
            translate Her*1.02
        }

            matrix <Norm.x,Norm.y,Norm.z,
                    Retn.x,Retn.y,Retn.z,
                    Tvers.x,Tvers.y,Tvers.z,
                    0   ,0   ,0    >
            translate Her*1.04
        }
        $a=a+d;
    #end
    texture{pigment {Green}}
    texture{pigment {Svart}}
    texture {pigment {Batter}}
    texture {pigment {Logo}}
    texture {pigment {Major}}
    finish {specular .1 roughness .05}
    normal { granite 0.5  scale .01 }
}


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.